{* Soubor pro parametry programu - pýi zmØnØ deklarace - smazat}
                           {spoleŸnì pro vçechny z kazn¡ky}
PGS:F,2.0;   {pagesize}
PGL:F,2.0;   {pagelimit}
PP:N,1;      {typ prevodniho prikazu - 1-PSZ,2-VZP,3-Dan,4-SVP(R-PP)}
CPI:B;       {pro 12 cpi musi byt A}
RT:B;        {A-no tisk bez ramecku}
TI:F,2.0;    {poŸet kopi¡}
PO:F,2.0;    {levì okraj}
Cond:B;      {Zhusteny tisk}
HE:A,80;     {hlaviŸka}
FO:A,80;     {patiŸka}
Del:F,5.0;   {zpo§dØn¡}

Vet:F,3.0;   {pocet ýadek na HPP}
DM630:F,7.0; {Vymerovaci zaklady a odvedeny pojistne}
DM631:F,7.0;
DM632:F,7.0;
NepV:F,7.0;  {nepravideln  vypomoc}

DM:N,3;      {DM pro pýenos}
CPR:N,5;     {Cpr pro vypocet - kdy§ 0 tak vçechny, jinak jen jeden}
             {pro hledani}
Uzivatel:A,25; {prave aktualni uzivatel}
Zmena:B;       {zda edupdated souboru}

VZP1:F,2.2;   { % VZP zamestnance}
VZP2:F,2.2;   { % VZP zamØstnavatele}

PSZ1:F,2.2;   { % PSZ zamestnance}
PSZ2:F,2.2;   { % PSZ zamestnavatele}

minmzda:F,4.0; {minimalni mzda}
minHPP:F,2.2;  {min.pr…mØr pro prac,p.£Ÿely}
MaxND:F,3.0;   {hranice NDmin}
SVP:F,3.0;     {hranice NDmax}

nezdmin:F,4.0; {nezdaniteln‚ minimum}
vyzd:F,4.0;    {odpocet na vyz.dite}
maxd:F,1.0;    {max.pocet zapoctenych deti}
Doprava:F,3.0; {prispevek na dopravu}
vyzm:F,5.0;    {odpocet na vyz.manzelku}
Cinv:F,4.0;    {odpocet na castecneho invalidu}
PInv:F,4.0;    {odpocet na plnou invaliditu}
ZTP:F,4.0;     {odpocet na ZTP}

          {nemocensk‚ d vky}
dny3:F,2.0;    {% prvn¡ týi dny nemoci}
dnyD:F,2.0;    {% dalç¡ dny nemoci}
OCR:F,2.0;     {% OCR}
MatD:F,2.0;    {% placen  mat.dovolen }
PracU:F,2.0;   {% prac.£razy}
OCRD1:F,2.0;   {placene dny OCR}
OCRD2:F,2.0;   {placene dny OCR u osamelych}
          {mezn¡ hodnoty}
DnyMP:F,1.0;    {dny pro ZP a SZ}
KcsMP:F,3.0;    {Kcs pro ZP a SZ}
DnyMD:F,1.0;    {dny pro dohody}
DuchMP:F,4.0;   {proc.duch pro ZP}
NV:A,30;       {DM pro nepl.volno}
          {pý¡davky}
V1:F,5.0;P1:F,3.0;   {V1-odpoŸet pro duchodce, P1-kontrola pýekroŸen¡ fondu pr.doby}
V2:F,2.0;P2:F,3.0;   {V2-daå zvl.sazbou, P2 maximum OH}
V3:F,4.0;P3:F,3.0;   {V3 rok daå skupiny}
P4:F,3.0;            {procento z rozd¡lu NDmax a NDmin}
ZvlKc:F,5.0;         {zvlastn¡ sazba danØ - mezni hodnota}
ZvlProc:F,2.0;       {zvlastni sazba danØ - procento}
Tarify :B;           {menit tabulu plat.tarif…}

MesSazby:A,75;

          {ostatni}
Prom:B;        {log.prom -P.Sest,Dokab- prehozeni vpoctu}
G:A,1;         {vol n¡ DM jen Glob ln¡ G , else: cokoliv}
Znak:A,1;      {zadan  ý dka v Dokab A,B,C,D}
Vyp:B;         {hromadny-N, po prac. A}

#K @@;

#C
              {prvn¡ ýadek monitoru}

Texth0:='ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿':A,80;
Texth1:=copy(Texth0,1,59)+'  Ÿ¡slo vØty ____  Ä¿':A,22;

Tisk:=CPI | RT | Cond | TI > 0 | PO > 0 | length(trailchar(' ',HE)) > 0 |
      length(trailchar(' ',FO)) > 0 :B;
Den:=valdate('01.'+Mzglo.mm+'.'+Mzglo.stol,'DD.MM.YYYY'):D;
den1:=addmonth(valdate('01.'+Mzglo.mm+'.'+Mzglo.stol,'DD.MM.YYYY'),1)-1:D;
RDan:=leadchar(' ',str(V3,4,0),'0'):N,4;
MaxND99:=MaxND+int((SVP-MaxND)*P4/100)+cond(frac((SVP-MaxND)*P4/100) > 0 :1):F,3.0;
DatVyst:=copy(MesSazby,1,10):A,10;
DatSpl:=copy(MesSazby,12,10):A,10;

#L PGS >= PGL & PGL > 0 :'Parametr PGS  >= PGL a souŸasnØ PGL > 0, opravte';
   Del >= 100 :'Zpo§dØn¡ mus¡ bìt minim lnØ 100';